home *** CD-ROM | disk | FTP | other *** search
/ Ozsi 13 / Ozsi_13_199x_Tide_Side_A.d64 / iceys-game basic (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  235 lines
  1. 0 poke53280,6:poke53281,6:fori=0to31:reada:poke12288+192*8+i,a:next:goto3050
  2. 1 sys49152:poke53248+24,29:poke53275,255
  3. 2 print"[147]":poke54296,15:poke808,225:poke768,226:poke769,252
  4. 3 poke53286,0:poke53285,1
  5. 4 poke2040,201:fori=0to4:poke2041+i,200:next:poke2047,210
  6. 5 poke53248+21,255
  7. 6 poke53264,0
  8. 7 poke53248+28,255
  9. 8 poke53288,3:poke53289,5:poke53290,3:poke53291,5:poke53292,3
  10. 9 poke53287,2
  11. 10 sys49225:fori=0to11:poke53248+i,0:next:gosub2000
  12. 11 poke53262,150:poke53263,150
  13. 15 a=rnd(1)*200+40:poke2046,209:poke53293,2
  14. 16 b=rnd(1)*170+50:poke53260,a:poke53261,b
  15. 17 fori=1to10:a=peek(53278):a=peek(53279):next
  16. 18 gosub1000
  17. 20 sys49253
  18. 30 ifpeek(1022)=0then20
  19. 35 ifpeek(1022)=2thengosub150:goto15
  20. 40 print"[144]           you are hit"
  21. 50 fori=0to100:poke54276,0:poke54273,i:poke54277,2:poke54276,33:next
  22. 60 goto100
  23. 100 ifsc>hithenhi=sc
  24. 105 print""tab(31)hi
  25. 110 goto9
  26. 150 poke54276,0:poke54273,200:poke54277,27+32:poke54276,17:return
  27. 500 data3,15,15,31,31,31,63,63
  28. 501 data192,240,240,248,248,248,252,252
  29. 502 data29,1,1,3,3,7,28,0
  30. 503 data184,128,128,192,192,96,184,0
  31. 600 data0,0,0,2,160,0,10,168
  32. 601 data0,10,168,0,42,170,0,42
  33. 602 data170,0,42,170,0,42,170,0
  34. 603 data10,168,0,10,168,0,2,160
  35. 604 data0,0,0,0,0,0,0,0
  36. 605 data0,0,0,0,0,0,0,0
  37. 606 data0,0,0,0,0,0,0,0
  38. 607 data0,0,0,0,0,0,0,0
  39. 608 data0,0,0,48,3,0,14,172
  40. 609 data0,11,184,0,42,170,0,42
  41. 610 data170,0,42,170,0,37,150,0
  42. 611 data41,154,0,10,168,0,2,32
  43. 612 data0,0,0,0,0,0,0,0
  44. 613 data0,0,0,0,0,0,0,0
  45. 614 data0,0,0,0,0,0,0,0
  46. 615 data0,0,0,0,0,0,0,0
  47. 616 data0,48,0,2,176,0,10,176
  48. 617 data0,38,184,0,41,170,0,38
  49. 618 data175,192,42,154,0,10,102,0
  50. 619 data42,168,0,2,160,0,2,0
  51. 620 data0,0,0,0,0,0,0,0
  52. 621 data0,0,0,0,0,0,0,0
  53. 622 data0,0,0,0,0,0,0,0
  54. 623 data0,0,0,0,0,0,0,0
  55. 624 data0,0,0,2,160,0,10,168
  56. 625 data192,10,107,0,41,110,0,10
  57. 626 data170,0,10,170,0,41,110,0
  58. 627 data10,107,0,10,168,192,2,160
  59. 628 data0,0,0,0,0,0,0,0
  60. 629 data0,0,0,0,0,0,0,0
  61. 630 data0,0,0,0,0,0,0,0
  62. 631 data0,0,0,0,0,0,0,0
  63. 632 data0,0,0,2,0,0,2,160
  64. 633 data0,42,168,0,10,102,0,42
  65. 634 data154,0,38,175,192,41,170,0
  66. 635 data38,184,0,10,176,0,2,176
  67. 636 data0,0,48,0,0,0,0,0
  68. 637 data0,0,0,0,0,0,0,0
  69. 638 data0,0,0,0,0,0,0,0
  70. 639 data0,0,0,0,0,0,0,0
  71. 640 data0,0,0,2,32,0,10,168
  72. 641 data0,41,154,0,37,150,0,42
  73. 642 data170,0,42,170,0,42,170,0
  74. 643 data11,184,0,14,172,0,48,3
  75. 644 data0,0,0,0,0,0,0,0
  76. 645 data0,0,0,0,0,0,0,0
  77. 646 data0,0,0,0,0,0,0,0
  78. 647 data0,0,0,0,0,0,0,0
  79. 648 data0,0,0,0,32,0,2,160
  80. 649 data0,10,170,0,38,104,0,41
  81. 650 data170,0,254,166,0,42,154,0
  82. 651 data11,166,0,3,168,0,3,160
  83. 652 data0,3,0,0,0,0,0,0
  84. 653 data0,0,0,0,0,0,0,0
  85. 654 data0,0,0,0,0,0,0,0
  86. 655 data0,0,0,0,0,0,0,0
  87. 656 data0,0,0,2,160,0,202,168
  88. 657 data0,58,104,0,46,90,0,42
  89. 658 data168,0,42,168,0,46,90,0
  90. 659 data58,104,0,202,168,0,2,160
  91. 660 data0,0,0,0,0,0,0,0
  92. 661 data0,0,0,0,0,0,0,0
  93. 662 data0,0,0,0,0,0,0,0
  94. 663 data0,0,0,0,0,0,0,0
  95. 664 data3,0,0,3,160,0,3,168
  96. 665 data0,11,166,0,42,154,0,254
  97. 666 data166,0,41,170,0,38,104,0
  98. 667 data10,170,0,2,160,0,0,32
  99. 668 data0,0,0,0,0,0,0,0
  100. 669 data0,0,0,0,0,0,0,0
  101. 670 data0,0,0,0,0,0,0,0
  102. 671 data0,0,0,0,0,0,0,0
  103. 672 data0,0,0,12,12,0,43,58
  104. 673 data0,150,229,128,149,149,128,149
  105. 674 data149,128,37,150,0,37,150,0
  106. 675 data9,152,0,37,150,0,150,37
  107. 676 data128,150,37,128,40,10,0,0
  108. 677 data0,0,0,0,0,0,0,0
  109. 678 data0,0,0,0,0,0,0,0
  110. 679 data0,0,0,0,0,0,0,0
  111. 680 data0,0,0,0,0,0,0,0
  112. 681 data0,0,32,0,0,32,0,0
  113. 682 data84,0,4,84,64,21,17,80
  114. 683 data21,85,80,85,85,84,85,85
  115. 684 data84,81,85,20,64,84,4,0
  116. 685 data84,0,0,16,0,0,16,0
  117. 686 data0,84,0,0,84,0,0,68
  118. 687 data0,0,0,0,0,0,0,0
  119. 688 data0,0,0,0,0,0,0,0
  120. 689 data0,0,32,0,0,32,0,0
  121. 690 data84,0,4,84,64,5,17,64
  122. 691 data21,85,80,21,85,80,21,85
  123. 692 data80,17,85,16,16,84,16,0
  124. 693 data84,0,0,16,0,0,16,0
  125. 694 data0,84,0,0,84,0,0,68
  126. 695 data0,0,0,0,0,0,0,0
  127. 696 data0,0,0,0,0,0,0,0
  128. 697 data0,0,32,0,0,32,0,0
  129. 698 data84,0,4,84,64,5,17,64
  130. 699 data5,85,64,5,85,64,5,85
  131. 700 data64,5,85,64,4,84,64,4
  132. 701 data84,64,0,16,0,0,16,0
  133. 702 data0,84,0,0,84,0,0,68
  134. 703 data0,0,0,0,0,0,0,0
  135. 704 data0,0,0,0,0,0,0,0
  136. 705 data0,0,32,0,0,32,0,0
  137. 706 data84,0,0,84,0,1,17,0
  138. 707 data5,85,64,5,85,64,21,85
  139. 708 data80,17,85,16,16,84,16,0
  140. 709 data84,0,0,16,0,0,16,0
  141. 710 data0,84,0,0,84,0,0,68
  142. 711 data0,0,0,0,0,0,0,0
  143. 800 data120,169,51,133,1,169,0,133
  144. 801 data250,169,204,133,251,169,0,133
  145. 802 data252,169,44,133,253,160,0,152
  146. 803 data41,7,201,5,144,8,177,250
  147. 804 data10,145,252,76,54,192,201,2
  148. 805 data176,8,177,250,74,145,252,76
  149. 806 data54,192,177,250,145,252,200,208
  150. 807 data222,230,251,230,253,165,253,201
  151. 808 data50,208,210,169,55,133,1,88
  152. 809 data96,162,0,169,50,157,80,195
  153. 810 data169,150,157,81,195,232,232,224
  154. 811 data100,208,240,96,1,2,4,8
  155. 812 data16,32,64,128,173,173,0,220
  156. 813 data41,2,240,3,206,80,195,173
  157. 814 data0,220,41,1,240,3,238,80
  158. 815 data195,173,0,220,41,4,240,3
  159. 816 data238,81,195,173,0,220,41,8
  160. 817 data240,3,206,81,195,173,0,220
  161. 818 data73,127,24,141,255,3,234,234
  162. 819 data234,162,100,189,79,195,157,81
  163. 820 data195,202,208,247,162,0,160,0
  164. 821 data185,80,195,157,1,208,185,81
  165. 822 data195,157,0,208,232,232,152,24
  166. 823 data105,12,168,224,12,208,233,173
  167. 824 data255,3,240,40,160,201,201,2
  168. 825 data240,31,200,201,6,240,26,200
  169. 826 data201,4,240,21,200,201,5,240
  170. 827 data16,200,201,1,240,11,200,201
  171. 828 data9,240,6,200,201,8,240,1
  172. 829 data200,140,248,7,76,241,192,0
  173. 830 data234,238,239,192,173,239,192,201
  174. 831 data3,144,54,162,0,142,239,192
  175. 832 data173,0,208,56,237,14,208,141
  176. 833 data252,3,173,1,208,56,237,15
  177. 834 data208,141,253,3,201,128,144,6
  178. 835 data206,15,208,76,33,193,238,15
  179. 836 data208,173,252,3,201,128,144,6
  180. 837 data206,14,208,76,49,193,238,14
  181. 838 data208,173,239,192,201,1,208,15
  182. 839 data238,255,7,173,255,7,201,214
  183. 840 data144,5,169,210,141,255,7,169
  184. 841 data0,141,254,3,173,30,208,141
  185. 842 data251,3,41,128,240,13,173,251
  186. 843 data3,41,64,208,6,169,1,141
  187. 844 data254,3,96,162,200,160,230,200
  188. 845 data208,253,232,208,248,173,251,3
  189. 846 data41,64,240,13,173,251,3,41
  190. 847 data128,208,6,169,2,141,254,3
  191. 848 data96,173,31,208,141,249,3,41
  192. 849 data128,240,9,173,249,3,56,233
  193. 850 data128,141,249,3,173,249,3,41
  194. 851 data64,240,9,173,249,3,56,233
  195. 852 data64,141,249,3,173,249,3,240
  196. 853 data6,169,1,141,254,3,96,76,101,192
  197. 1000 a$="[192][193][157][157][194][195]":b$=""
  198. 1001 d$=""
  199. 1002 c$="[129][149][150][151][152][153][155][154][129][149][150][151][152][153][155]":a=int(rnd(1)*14)+1:printmid$(c$,a,1)
  200. 1003 a=int(rnd(1)*12)*2:printleft$(d$,a+1);
  201. 1004 a=int(rnd(1)*14)*2:printleft$(b$,a+1);a$""
  202. 1005 sc=sc+(l*10):l=l+1
  203. 1006 print""tab(31)sc
  204. 1010 return
  205. 2000 poke53269,0:gosub3000:l=0:sc=0:poke198,0
  206. 2010 print"           wormo's - pigout
  207. 2020 [153]"  a mega produksiun by icelad/tide
  208. 2030 print"[158]     eat all butterflies
  209. 2040 [153]"avoid magic mushrooms and bird
  210. 2050 print"[154]     options    'a'   'b'
  211. 2060 [153]"       bird!    yes   no"
  212. 2065 [153]"open         joystick port ]["
  213. 2070 [153]""[163]32)"stopscore"
  214. 2080 [153][163]31)sc"cmd     "
  215. 2090 [153][163]32)"hiscore"
  216. 2100 [153][163]31)hi
  217. 2110 [161]a$
  218. 2111 [139]([194](56320)[175]16)[178]0[167]a$[178]"a"
  219. 2120 [139]a$[178]"a"[167][151]53269,255:l[178]20:[137]3000
  220. 2130 [139]a$[178]"b"[167][151]53269,127:[137]3000
  221. 2135 [137]2110
  222. 3000 [153]"";
  223. 3001 a$[178]"                             "
  224. 3002 [129]i[178]1[164]24:[153]a$:[130]:[153]a$""
  225. 3003 [142]
  226. 3050 [153]"loadunzipping game!goils pleeze look away"
  227. 3060 [153]"dis game is iceware!wait so its kewl!!!!"
  228. 3061 [151]2020,20:[151]2021,9:[151]2022,4:[151]2023,5
  229. 4000 [129]i[178]0[164]895:[135]a:[151]12800[170]i,a:[130]
  230. 4001 [129]i[178]0[164]433:[135]a:[151]49152[170]i,a:[130]:[137] 1
  231. 4002 [143]ember diss iz 'icelads' game!!
  232. 4003 [143]ember tom to look thru sum old
  233. 4004 [143]*mags,2 c where'a'got dis from
  234. 4005 [143]*in da 1st place/tz..(hmmmm???)
  235.